-- // module by timothytheawesome, converted to normal script by 0kJu5tSp4ng3

local System = {}

System.Words = {'1234','damn','suck','crap'}

System.Countries = {"US","GB","CA","AF","AX","AL","DZ","AS","AD","AO","AI","AQ","AG","AR","AM","AW","AU","AT","AZ","BS","BH","BD","BB","BY","BE","BZ","BJ","BM","BT","BO","BQ","BA","BW","BV","BR","IO","BN","BG","BF","BI","KH","CM","CV","KY","CF","TD","CL","CN","CX","CC","CO","KM","CG","CD","CK","CR","CI","HR","CW","CY","CZ","DK","DJ","DM","DO","EC","EG","SV","GQ","ER","EE","ET","FK","FO","FJ","FI","FR","GF","PF","TF","GA","GM","GE","DE","GH","GI","GR","GL","GD","GP","GU","GT","GG","GN","GW","GY","HT","HM","VA","HN","HK","HU","IS","IN","ID","IQ","IE","IM","IL","IT","JM","JP","JE","JO","KZ","KE","KI","KR","KW","KG","LA","LV","LB","LS","LR","LY","LI","LT","LU","MO","MK","MG","MW","MY","MV","ML","MT","MH","MQ","MR","MU","YT","MX","FM","MD","MC","MN","ME","MS","MA","MZ","MM","NA","NR","NP","NL","AN","NC","NZ","NI","NE","NG","NU","NF","MP","NO","OM","PK","PW","PS","PA","PG","PG","PE","PH","PN","PL","PT","PR","QA","RE","RO","RU","RW","BL","SH","KN","LC","MF","PM","VC","WS","SM","ST","SA","SN","RS","SC","SL","SG","SX","SK","SI","SB","SO","ZA","GS","SS","ES","LK","SR","SJ","SZ","SE","CH","TW","TJ","TZ","TH","TL","TG","TK","TO","TT","TN","TR","TM","TC","TV","UG","UA","AE","UM","UY","UZ","VU","VE","VN","VG","VI","WF","EH","YE","ZM","ZW","CU","IR","SY","KP"}

System.Converted = {
	"United States","United Kingdom",
	"Canada","Afghanistan",
	"Aland Islands","Albania",
	"Algeria","American Samoa",
	"Andorra","Angola","Anguilla",
	"Antarctica","Antigua and Barbuda",
	"Argentina","Armenia",
	"Aruba","Australia",
	"Austria","Azerbaijan",
	"Bahamas","Bahrain",
	"Bangladesh","Barbados",
	"Belarus","Belgium",
	"Belize","Benin",
	"Bermuda","Bhutan",
	"Bolivia","Bonaire, Saint Eustatius and Saba","Bosnia and Herzegovina",
	"Botswana","Bouvet Island",
	"Brazil","British Indian Ocean Territory",
	"Brunei Darussalam","Bulgaria","Burkina Faso",
	"Burundi","Cambodia",
	"Cameroon","Cape Verde",
	"Cayman Islands","Central African Republic",
	"Chad","Chile",
	"China","Christmas Island",
	"Cocos Islands","Colombia",
	"Comoros","Congo",
	"Congo (DRC)","Cook Islands",
	"Costa Rica","Ivory Coast",
	"Croatia","Curaçao",
	"Cyprus","Czech Republic",
	"Denmark","Djibouti",
	"Dominica","Dominican Republic",
	"Ecuador","Egypt",
	"El Salvador","Equatorial Guinea",
	"Eritrea","Estonia",
	"Ethiopia","Falkland Islands (Malvinas)",
	"Faroe Islands","Fiji",
	"Finland","France",
	"French Guiana","French Polynesia",
	"French Southern Territories","Gabon",
	"Gambia","Georgia",
	"Germany","Ghana",
	"Gibraltar","Greece",
	"Greenland","Grenada",
	"Guadeloupe","Guam",
	"Guatemala","Guernsey",
	"Guinea","Guinea-Bissau",
	"Guyana","Haiti",
	"Heard Island and the McDonald Islands","Holy See",
	"Honduras","Hong Kong",
	"Hungary","Iceland",
	"India","Indonesia",
	"Iraq","Ireland",
	"Isle of Man","Israel",
	"Italy","Jamaica",
	"Japan","Jersey",
	"Jordan","Kazakhstan",
	"Kenya","Kiribati",
	"Korea","Kuwait",
	"Kyrgyzstan","Laos",
	"Latvia","Lebanon",
	"Lesotho","Liberia",
	"Libya","Liechtenstein",
	"Lithuania","Luxembourg",
	"Macao","Macedonia",
	"Madagascar","Malawi",
	"Malaysia","Maldives",
	"Mali","Malta","Marshall Islands",
	"Martinique","Mauritania",
	"Mauritius","Mayotte",
	"Mexico","Micronesia",
	"Moldova","Monaco",
	"Mongolia","Montenegro",
	"Montserrat","Morocco",
	"Mozambique","Myanmar",
	"Namibia","Nauru",
	"Nepal","Netherlands",
	"Netherlands Antilles","New Caledonia",
	"New Zealand","Nicaragua",
	"Niger","Nigeria",
	"Niue","Norfolk Island",
	"Northern Mariana Islands","Norway",
	"Oman","Pakistan","Palau",
	"Palestine","Panama",
	"Papua New Guinea","Paraguay",
	"Peru","Philippines","Pitcairn Islands",
	"Poland","Portugal","Puerto Rico","Qatar","Reunion","Romania","Russian Federation","Rwanda","Saint Barthelemy","Saint Helena, Ascension and Tristan da Cunha","Saint Kitts and Nevis","Saint Lucia","Saint Martin","Saint Pierre and Miquelon","Saint Vincent and the Grenadines","Samoa","San Marino","Sao Tome and Principe","Saudi Arabia","Senegal","Serbia","Seychelles","Sierra Leone","Singapore","Sint Maarten","Slovakia","Slovenia","Solomon Islands","Somalia","South Africa","South Georgia and the South Sandwich Islands","South Sudan","Spain","Sri Lanka","Suriname","Svalbard and Jan Mayen","Swaziland","Sweden","Switzerland","Taiwan","Tajikistan","Tanzania","Thailand","Timor-leste","Togo","Tokelau","Tonga","Trinidad and Tobago","Tunisia","Turkey","Turkmenistan","Turks and Caicos Islands","Tuvalu","Uganda","Ukraine","United Arab Emirates","United States Minor Outlying Islands","Uruguay","Uzbekistan","Vanuatu","Venezuela","Vietnam","Virgin Islands (British)","Virgin Islands (US)","Wallis and Futuna","Western Sahara","Yemen","Zambia","Zimbabwe","Cuba","Iran","Syria","North Korea"
}

function System:getFullCountryName(country)
	local two = System.Countries
	local converted = System.Converted
	
	for i = 1, #converted do
		if string.upper(country) == two[i] then
			return converted[i]
		elseif string.lower(country) == string.lower(converted[i]) then
			return two[i]
		end
	end
end

function System:checkAge(plr)
	local found = false
	for i,word in pairs(System.Words) do
		local msg = game:GetService("Chat"):FilterStringAsync(word,plr,plr)
		if string.match(msg,"#") ~= nil then
			found = true
		else
			found = false
		end
	end
	
	local tm = os.time() - ((60 * 60 * 24) * plr.AccountAge)
	local date = os.date("!*t", tm)
	
	if found then
		print(plr.Name .. "'s age is likely: " .. "<13")
	else
		print(plr.Name .. "'s age is likely: " .. "+13")
	end
	print(plr.Name .. "'s join date: " .. date.month .. '/' .. date.day .. '/' .. date.year .. ', about ' .. (math.floor(100 * plr.AccountAge/365 + .5)/100) .. ' years ago.')
end

function System:checkRegion(plr)
	local res,code = pcall(function()
		return game:GetService("LocalizationService"):GetCountryRegionForPlayerAsync(plr)
	end)
	
	if res then
		print(plr.Name .. " lives in: " .. System:getFullCountryName(tostring(code)))
	else
		error("Region retriever failed. Region: " .. tostring(code))
	end
end

warn("--- /// Please wait... \\\ ---")

for i,plr in pairs(game:GetService("Players"):GetPlayers()) do
	warn("--- " .. plr.Name .. " ---")
	System:checkAge(plr)
	System:checkRegion(plr)
end

owner.Chatted:Connect(function(msg)
	if msg:sub(1,10) == "-getRegion" then
		if msg:sub(12) == '' then
			return
		end
		
		local subj = msg:sub(12)
		for i,plr in pairs(game:GetService("Players"):GetPlayers()) do
			if plr.Name:lower():sub(1,subj:len()) == subj:lower() then
				System:checkRegion(plr)
			end
		end
	elseif msg:sub(1,12) == "/e getRegion" then
		if msg:sub(14) == '' then
			return
		end
		
		local subj = msg:sub(14)
		for i,plr in pairs(game:GetService("Players"):GetPlayers()) do
			if plr.Name:lower():sub(1,subj:len()) == subj:lower() then
				System:checkRegion(plr)
			end
		end
	elseif msg:sub(1,7) == '-getAge' then
		if msg:sub(9) == '' then
			return
		end
		
		local subj = msg:sub(9)
		for i,plr in pairs(game:GetService("Players"):GetPlayers()) do
			if plr.Name:lower():sub(1,subj:len()) == subj:lower() then
				System:checkAge(plr)
			end
		end
	elseif msg:sub(1,9) == '/e getAge' then
		if msg:sub(11) == '' then
			return
		end
		
		local subj = msg:sub(11)
		for i,plr in pairs(game:GetService("Players"):GetPlayers()) do
			if plr.Name:lower():sub(1,subj:len()) == subj:lower() then
				System:checkAge(plr)
			end
		end
	end
end)